home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / programming / other / kaliosisquantrum / morb / test.s < prev    next >
Text File  |  1998-01-12  |  16KB  |  832 lines
  1. *
  2. * CdBSian Obviously Universal & Interactive Nonsense (COUIN)
  3. * (Absurdité CdBSienne Manifestement Universelle et Interactive)
  4. * ©1997-1998, CdBS Software (MORB)
  5. * Test code for debugging purpose
  6. *
  7.  
  8. ;fs "ConfirmQuit"
  9. ConfirmQuit:
  10.      lea       cqtitle(pc),a0
  11.      lea       cqbody(pc),a1
  12.      lea       cqbut(pc),a2
  13.      lea       cqhook,a3
  14.      sub.l     a4,a4
  15.      bra       _Request
  16. cqhook:
  17.      tst.b     d0
  18.      bne       _Quit
  19.      rts
  20.  
  21. cqtitle:
  22.      dc.b      "COUIN's request",0
  23. cqbody:
  24.      dc.b      "Are you sure you want to quit ?",0
  25. cqbut:
  26.      dc.b      "OK|Cancel",0
  27.      even
  28. ;fe
  29.  
  30. ;fs "_About"
  31. _About:
  32.      lea       abtitle(pc),a0
  33.      lea       abbody(pc),a1
  34.      lea       abbut(pc),a2
  35.      lea       abhook,a3
  36.      sub.l     a4,a4
  37.      bra       _Request
  38. abhook:
  39.      tst.b     d0
  40.      bne.s     _AboutCouin
  41.      rts
  42. abtitle:
  43.      dc.b      "About Kaliosis Quantrum",0
  44. abbody:
  45.      dc.b      "Kaliosis Quantrum v",VERSION+"0",".",REVISION+"0"," ("
  46.      DATE
  47.      dc.b      ")",$a
  48.      dc.b      "©1997-1998, CdBS Software",$a
  49.      dc.b      "http://www.asi.fr/~tartavel/CdBS/Home.html",$a
  50.      dc.b      "e-mail : morb@nef.surle.net or toxn@toxiczone.surle.net",$a,$a
  51.      dc.b      "Scenario & Design : Sylve & Toxico Nimbus",$a,$a
  52.      dc.b      "Graphics : Sylve",$a,$a
  53.      dc.b      "COUIN engine Code & Design : MORB",$a
  54.      dc.b      "Additional code : Troll",$a,$a
  55.      dc.b      "Scenaric Code & Map Design : Toxico Nimbus",$a,$a
  56.      dc.b      "Greetings to (in no particular order) :",$a,$a
  57.      dc.b      "Trollix (Menhirs rulez *87),",$a
  58.      dc.b      "Exxos, Kaneda, BestONE, Sarts,",$a
  59.      dc.b      "Les gens de chez JANAL (international)",$a
  60.      dc.b      "Les lobotomisés de chez Uto-Pic (FLYx, Samyl, & Marcel)",$a
  61.      dc.b      "ßouß/Popsy Team, ZIG, The Coca Cola Company,",$a
  62.      dc.b      "#AmyCoders, #Artbas, #AmigaRulezFr,",$a
  63.      dc.b      "Georges (Avec un S, il est plusieurs là-dedans)",$a
  64.      dc.b      "Pascal Marcelin, Christian, Daniel, L0ki, TH2A, Mohic,",$a
  65.      dc.b      "Io, Gogo, DJThunder, Maui, Bins, MoonBeam, Gérard 'Shaman' Cornu,",$a
  66.      dc.b      "Rafo, Raphael Guénot, et tout le monde surle.net...",0
  67. abbut:
  68.      dc.b      "About COUIN|Resume",0
  69.      even
  70. ;fe
  71. ;fs "_AboutCouin"
  72. _AboutCouin:
  73.      lea       abctitle(pc),a0
  74.      lea       abcbody(pc),a1
  75.      lea       abcbut(pc),a2
  76.      sub.l     a3,a3
  77.      sub.l     a4,a4
  78.      bra       _Request
  79.  
  80. abctitle:
  81.      dc.b      "About COUIN",0
  82. abcbody:
  83.      dc.b      "CdBSian Obviously Universal & Interactive Nonsense (COUIN)",$a
  84.      dc.b      "(Absurdité CdBSienne Manifestement Universelle et Interactive)",$a,$a
  85.      dc.b      "©1997-1998, CdBS Software",$a,$a
  86.      dc.b      "Prepre beta developpement version",0
  87. abcbut:
  88.      dc.b      "OK",0
  89.      even
  90. ;fe
  91.  
  92. ;fs "_NYI"
  93. _NYI:
  94.      lea       NYITitle,a0
  95.      lea       NYIBody,a1
  96.      lea       NYIBut,a2
  97.      sub.l     a3,a3
  98.      sub.l     a4,a4
  99.      bra       _Request
  100.  
  101. NYITitle:
  102.      dc.b      "You just clicked on the bad button",0
  103. NYIBody:
  104.      dc.b      "Sorry, this function is not yet implemented.",$a,$a
  105.      dc.b      "I remember you that it is a work in progress",$a
  106.      dc.b      "thing, as written in the 'About' section.",$a,$a
  107.      dc.b      "Don't cry anymore, COUIN will be completed one day.",$a,$a
  108.      dc.b      "So stop making me shit for a small useless function that doesn't",$a
  109.      dc.b      "work for now. It's incredible, you are never happy. Grûnt.",0
  110. NYIBut:
  111.      dc.b      "Yes, I understand, please forgive me, you Great Coder.",0
  112.      even
  113. ;fe
  114.  
  115. ;fs "_GuiTest"
  116. _GuiTest:
  117.      move.l    _CurrentGui,tgog
  118.  
  119.      lea       _ggggTest(pc),a0
  120.      bra       _ChangeGui
  121.  
  122. tgog:
  123.      ds.l      1
  124. tgouste:
  125.      move.l    tgog,a0
  126.      bra       _ChangeGui
  127.  
  128. _ggggTest:
  129.      GENTRY    _VGroup,0,0
  130.  
  131.      GENTRY    _HGroup,0,0
  132.      GENTRY    _SmallButton,"X",tgouste
  133.      GENTRY    _SmallButton,"I",_Iconify
  134.      GENTRY    _DragBar,tb1,0
  135.      GEND
  136.  
  137.      GENTRY    _HGroup,0,0
  138.      GENTRY    _ListView,tstlst,0,0,0,tl2
  139.      GENTRY    _ListView,tstlst,0,0,0,tl8
  140.      GENTRY    _ListView,tstlst,0,0,0,tlA
  141.      GEND
  142.  
  143.      GENTRY    _HGroup,0,0
  144.      GENTRY    _Button,tb2,0
  145.      GENTRY    _Button,tb3,0
  146.      GENTRY    _Button,tb4,0
  147.      GENTRY    _Button,tb5,0
  148.      GENTRY    _Button,tb6,0
  149.      GENTRY    _Button,tb7,0
  150.      GEND
  151.  
  152.      ;GENTRY    _Text,grotext,0,0,gagu
  153.  
  154.      GENTRY    _HGroup,0,0
  155.      GENTRY    _HScroller,0,0,0,20,5
  156.      GENTRY    _Button,tb8,0
  157.      GENTRY    _Button,oomtxt,_OutOfMemory
  158.      GEND
  159.  
  160.      GENTRY    _HProp,0,0,0,16,1
  161.  
  162.      ;GENTRY    _Empty,0,0
  163.  
  164.      GENTRY    _HGroup,0,0
  165.      GENTRY    _Button,tb2,0
  166.      GENTRY    _Button,tb3,0
  167.      GENTRY    _Button,tb5,0
  168.      GENTRY    _Button,tb7,0
  169.      GEND             
  170.  
  171.      GEND
  172.  
  173. tstlst:
  174.      dc.l      tl1
  175. tltruc:
  176.      dc.l      0
  177.      dc.l      tlB
  178.  
  179. tl1:
  180.      dc.l      tl2,tstlst,tb1,1
  181. tl2:
  182.      dc.l      tl3,tl1,tb2,1
  183. tl3:
  184.      dc.l      tl4,tl2,tb3,2
  185. tl4:
  186.      dc.l      tl5,tl3,tb4,2
  187. tl5:
  188.      dc.l      tl6,tl4,tb5,1
  189. tl6:
  190.      dc.l      tl7,tl5,tb6,1
  191. tl7:
  192.      dc.l      tl8,tl6,tb7,2
  193. tl8:
  194.      dc.l      tl9,tl7,tb8,2
  195. tl9:
  196.      dc.l      tlA,tl8,tb9,2
  197. tlA:
  198.      dc.l      tlB,tl9,tbA,1
  199. tlB:
  200.      dc.l      tltruc,tlA,tbB,1
  201.  
  202. grotext:
  203.      dc.b      "Ceci n'est pas un texte monoligne  :^)",$a
  204.      dc.b      "La preuve",$a,$a
  205.      dc.b      "Il y en a plusieurs",$a
  206.      dc.b      "Et il y a même des %lx caractères %ld",$a
  207.      dc.b      "de formatage %ld.",0
  208.      even
  209. gagu:
  210.      dc.l      $deadbeef,123,45
  211. tb1:
  212.      dc.b      "COUIN's Gui de néssai. Klang.",0
  213. tb2:
  214.      dc.b      "Couin",0
  215. tb3:
  216.      dc.b      "Glonk glou",0
  217. tb4:
  218.      dc.b      "Paf",0
  219. tb5:
  220.      dc.b      "Schglubulu",0
  221. tb6:
  222.      dc.b      "Ga",0
  223. tb7:
  224.      dc.b      "Poupouf",0
  225. tb8:
  226.      dc.b      "Beuark.",0
  227. oomtxt:
  228.      dc.b      "OOM Test",0
  229.  
  230. tb9:
  231.      dc.b      "Shnorfl.",0
  232. tbA:
  233.      dc.b      "Sgronk gnlionglub",0
  234. tbB:
  235.      dc.b      "Gluibnlionglsgonkrank. Si.",0
  236.      even
  237. ;fe
  238. ;fs "_NewGuiTest"
  239. ngtobj:
  240.      ds.l      1
  241.  
  242. _NewGuiTest:
  243.      lea       ntgui,a0
  244.      bra       _OpenGui
  245. ngtExit:
  246.      bra       _CloseGui
  247. ntgui:
  248.      dc.l      0
  249.  
  250.      GUI
  251.       VGROUP
  252.        HGROUP
  253.         SMALLBTN  "X",ngtExit,0
  254.         SMALLBTN  "I",_Iconify,0
  255.         DRAGBAR   ngtt
  256.        ENDOBJ
  257.        HGROUP
  258.         VGROUP
  259.          HGROUP
  260.           LISTVIEW  tstlst,tl3,0,0,0,1000
  261.           VKNOB
  262.           LISTVIEW  tstlst,0,0,0,0,1000
  263.           VKNOB
  264.           LISTVIEW  tstlst,0,0,0,0,1000
  265.          ENDOBJ
  266.          HKNOB
  267.          HGROUP
  268.           LISTVIEW  tstlst,tl3,0,0,0,1000
  269.           VKNOB
  270.           LISTVIEW  tstlst,0,0,0,0,1000
  271.          ENDOBJ
  272.         ENDOBJ
  273.         VKNOB
  274.         VGROUP
  275.          BUTTON   tb2,0,0
  276.          BUTTON   tb3,0,0
  277.          BUTTON   tb4,0,0
  278.          LISTVIEW tstlst,0,0,0,0,1000
  279.          BUTTON   tb5,0,0
  280.          BUTTON   tb6,0,0
  281.          BUTTON   tb7,0,0
  282.         ENDOBJ
  283.         VKNOB
  284.         VGROUP
  285.          LISTVIEW  tstlst,0,0,0,0,1000
  286.          HKNOB
  287.          LISTVIEW  tstlst,0,0,0,0,1000
  288.         ENDOBJ
  289.        ENDOBJ
  290.        HGROUP
  291.         HSCROLLR  1,17,1,0,0
  292.         VKNOB
  293.         HPROP     1,17,1,0,0
  294.        ENDOBJ
  295.        HGROUP
  296.         HSCROLLR  0,20,5,0,0
  297.         VKNOB
  298.         BUTTON    tb8,_GuiTest,0
  299.         VKNOB
  300.         BUTTON    oomtxt,_OutOfMemory,0
  301.        ENDOBJ
  302.       ENDOBJ
  303.      ENDOBJ
  304.  
  305. ngtt:
  306.      dc.b      "New horrible gui test",0
  307.      even
  308. ;fe
  309.  
  310. ;fs "_ReqTest"
  311. _ReqTest:
  312.      lea       rttitle,a0
  313.      lea       rtbody,a1
  314.      lea       rtbut,a2
  315.      sub.l     a3,a3
  316.      sub.l     a4,a4
  317.      bra.s     _Request
  318.  
  319. rttitle:
  320.      dc.b      "COUIN's Requester de essai (sans vouloir me montrer pesant)",0
  321. rtbody:
  322.      dc.b      "Ceci est un requester COUIN.",$a
  323.      dc.b      "Un requester d'essai.",$a
  324.      dc.b      "Avec un texte complètement inepte.",$a
  325.      dc.b      "Et un saut de ligne,",$a
  326.      dc.b      "pour faire style.",$a,$a
  327.      dc.b      "Je pourrais encore raconter des",$a
  328.      dc.b      "conneries longtemps, comme ça.",$a,$a
  329.      dc.b      "Et puis il y a une rangée de boutons",$a
  330.      dc.b      "en bas. Voilà. Paf.",0
  331.  
  332. rtbut:
  333.      dc.b      "Oui|Non|Probablement|Sans opinion|Peut-être|Je sais pas|Quoique",0
  334.      even
  335. ;fe
  336. ;fs "_FReqTest"
  337. _FReqTest:
  338.      lea       TstFReq,a2
  339.      sub.l     a1,a1
  340.      lea       FRTHook,a1
  341.      bra.s     _FileRequest
  342.  
  343. FRTHook:
  344.      tst.l     d0
  345.      beq.s     .OuinX
  346.  
  347.      lea       FRRTitle,a0
  348.      lea       FRRViviBody,a1
  349.      lea       FRRBut,a2
  350.      sub.l     a3,a3
  351.      move.l    #TFRPath,-(a7)
  352.      move.l    a7,a4
  353.      bsr       _Request
  354.      addq.l    #4,a7
  355.      rts
  356.  
  357. .OuinX:
  358.      lea       FRRTitle,a0
  359.      lea       FRROuinxBody,a1
  360.      lea       FRRBut,a2
  361.      sub.l     a3,a3
  362.      sub.l     a4,a4
  363.      bra       _Request
  364.  
  365.  
  366. TstFReq:
  367.      dc.l      freqt
  368. TFRPath:
  369.      dc.b      "sys:",0
  370.      ds.b      1024
  371.  
  372. freqt:
  373.      dc.b      "COUIN's File requester",0
  374.  
  375. FRRTitle:
  376.      dc.b      "It was the file requester of COUIN",0
  377. FRRBut:
  378.      dc.b      "Gluuub.",0
  379. FRROuinxBody:
  380.      dc.b      "You didn't select anything.",0
  381. FRRViviBody:
  382.      dc.b      "There is the complete path of file that you selected :",$a
  383.      dc.b      "%s",0
  384.      even
  385. ;fe
  386.  
  387. ;fs "_EditMonsters"
  388. EdmLastGui:
  389.      ds.l      1
  390. EdmState:
  391.      dc.b      0
  392.      even
  393.  
  394. _EditMonsters:
  395.      lea       Plf1,a5
  396.  
  397.      move.l    _CurrentGui,EdmLastGui
  398.  
  399.      lea       EdmHandler(pc),a0
  400.      move.l    a0,_PlayfieldClickHandler
  401.  
  402.      lea       EdMGui(pc),a0
  403.      bra       _ChangeGui
  404.  
  405. ExitEdm:
  406.      clr.l     _PlayfieldClickHandler
  407.  
  408.      move.l    EdmLastGui(pc),a0
  409.      bra       _ChangeGui
  410.  
  411. EdmHandler:
  412.      lsr.l     #1,d0
  413.  
  414.      lea       Plf1(pc),a5
  415.      move.l    pf_X(a5),d2
  416.      lsr.l     #2,d2
  417.  
  418.      add.l     d2,d0
  419.      add.l     pf_Y(a5),d1
  420.  
  421.      movem.l   d0-1,TestSpr+12
  422.      movem.l   d0-1,sprpostruc
  423.  
  424.      lea       Plf1SprH(pc),a4
  425.      lea       TestSpr(pc),a3
  426.  
  427.      bsr       _DrawSprite
  428.  
  429.      lea       Plf1(pc),a5
  430.      move.l    pf_WorkOfst(a5),d0
  431.      move.l    pf_RefreshPtrs(a5,d0.l),a0
  432.      moveq     #-1,d0
  433.      move.l    d0,2(a0)
  434.  
  435.      tst.b     EdmState
  436.      bne.s     .WaitRelease
  437.  
  438.      btst      #6,$bfe001
  439.      bne.s     .Done
  440.  
  441.      st        EdmState
  442.      move.l    (AbsExecBase).w,a6
  443.      move.l    _ObjMemPool,a0
  444.      moveq     #sp_Size,d0
  445.      CALL      AllocPooled
  446.      lea       CustomBase,a6
  447.  
  448. .glou:
  449.      ;move.w    $dff006,d0
  450.      ;and.w     #$ff,d0
  451.      ;move.w    d0,$dff180
  452.      ;btst      #2,$dff016
  453.      ;bne.s     .glou
  454.  
  455.      tst.l     d0
  456.      beq.s     .Done
  457.  
  458.      move.l    d0,a0
  459.      lea       sp_Pos(a0),a1
  460.      lea       TestSpr+12(pc),a2
  461.      move.l    (a2)+,(a1)+
  462.      move.l    (a2)+,(a1)+
  463.      move.l    (a2),(a1)+
  464.      clr.l     (a1)+
  465.      lea       TestSpr(pc),a2
  466.      move.l    (a2)+,(a1)+
  467.      move.l    (a2)+,(a1)+
  468.      move.l    (a2),(a1)+
  469.      clr.l     (a1)
  470.  
  471.      lea       Plf1(pc),a5
  472.      move.l    pf_Sprites(a5),a4
  473.      move.l    sh_First(a4),a1
  474.      move.l    a1,(a0)
  475.      move.l    a0,sh_First(a4)
  476.      move.l    a1,d0
  477.      beq.s     .Done
  478.      move.l    a0,sp_Prev(a1)
  479.  
  480. .Done:
  481.      rts
  482.  
  483. .WaitRelease:
  484.      btst      #6,$bfe001
  485.      beq.s     .Done
  486.      sf        EdmState
  487.      rts
  488.  
  489. EdMGui:
  490.      GENTRY    _VGroup,0,0
  491.  
  492.      GENTRY    _HGroup,0,0
  493.      GENTRY    _SmallButton,"X",ExitEdm
  494.      GENTRY    _SmallButton,"I",_Iconify
  495.      GENTRY    _DragBar,EdmTitle,0
  496.      GEND
  497.  
  498.      ;GENTRY    _Button,clrspr,_GuiClrSpr
  499.  
  500.      ;GEND
  501.  
  502.      GENTRY    _Selector,0,0
  503.      GENTRY    _Sprite,TestSprD,0
  504.      GENTRY    _Sprite,TestSprD,0
  505.      GENTRY    _Sprite,TestSprD,0
  506.      GENTRY    _Sprite,TestSprD,0
  507.      GENTRY    _Sprite,TestSprD,0
  508.      GENTRY    _Sprite,TestSprD,0
  509.      GENTRY    _Sprite,TestSprD,0
  510.      GENTRY    _Sprite,TestSprD,0
  511.      GEND
  512.  
  513.      GEND
  514.  
  515. EdmTitle:
  516.      dc.b      "COUIN's Monsters editor",0
  517. clrspr:
  518.      dc.b      "RefreshBuffer()",0
  519.      even
  520. ;fe
  521.  
  522. ;fs "_ToggleWrap"
  523. _ToggleWrap:
  524.      move.l    #$960000,Wcol1
  525.      move.l    #$960000,Wcol2
  526.  
  527.      bchg      #0,_GameBplCon0+1
  528.      beq.s     .Done
  529.  
  530.      move.l    #$1800500,Wcol1
  531.      move.l    #$1800005,Wcol2
  532.  
  533. .Done
  534.      rts
  535. ;fe
  536.  
  537. ;fs "_ACTest"
  538. BrusselSprout:
  539.      incbin    "BrusselSprout.bin"
  540.      even
  541. _ACTest:
  542.      lea       BrusselSprout,a0
  543.      move.l    #$4c,d0
  544.      move.l    #$37,d1
  545.      bsr       _ACScanBitmap
  546.      lea       TestSprBm,a0
  547.      bsr       _ACCut
  548.      rts
  549. ;fe
  550.  
  551. ;fs "Speed control"
  552. _SetXSpeed:
  553.      move.l    d1,XSpeed
  554.      bra.s     SpdRefr
  555.  
  556. _SetYSpeed:
  557.      move.l    d1,YSpeed
  558.  
  559. SpdRefr:
  560.      move.l    a2,-(a7)
  561.      move.l    SpdTxtObj,a2
  562.      DOMTDI    GCM_Clear,a2
  563.      DOMTDI    GCM_Layout,a2
  564.      DOMTDI    GCM_Render,a2
  565.      move.l    (a7)+,a2
  566.      rts
  567. spddats:
  568. XSpeed:
  569.      dc.l      16
  570. YSpeed:
  571.      dc.l      4
  572. ;fe
  573.  
  574. ;fs "Test sprite structure"
  575. TestSpr:
  576.      dc.l      0,0,0
  577.      dc.l      50,160
  578.      dc.l      TestSprD
  579. sprpostruc:
  580.      dc.l      50,160
  581.      dc.l      TestSprD
  582.  
  583. TestSpr2:
  584.      dc.l      0,0,0
  585.      dc.l      50,100
  586.      dc.l      TestSprD
  587.      dc.l      50,100
  588.      dc.l      TestSprD
  589.  
  590. TestSprD:
  591.      dc.l      TestSprBm
  592.      dc.l      TestSprMsk
  593.      dc.l      2,22,33
  594.      dc.l      11,17
  595.  
  596. TestSprD2:
  597.      dc.l      TestSpr2Bm
  598.      dc.l      TestSpr2Msk
  599.      dc.l      3,46,38
  600.      dc.l      23,19
  601. ;fe
  602.  
  603. ;fs "Test class"
  604.      CLASS     TestClass,RootClass
  605.      METHOD    TM_Gna
  606.      METHOD    TM_Gni
  607.  
  608. TestClass:
  609.      dc.l      0
  610.      dc.l      _RootClass
  611.      dc.l      0,0,0,0,0
  612.      dc.l      0
  613.      dc.l      TCFuncs
  614.      dc.l      0
  615.      dc.l      0
  616.      dc.l      0
  617.  
  618. TCFuncs:
  619.      dc.l      TCGni,TCGna,0
  620.  
  621. TCGni:
  622.      lea       TCTitle,a0
  623.      lea       TCGniBody,a1
  624.      lea       TCButs,a2
  625.      sub.l     a3,a3
  626.      bra.s     _Request
  627. TCGna:
  628.      lea       TCTitle,a0
  629.      lea       TCGnaBody,a1
  630.      lea       TCButs,a2
  631.      sub.l     a3,a3
  632.      bra.s     _Request
  633.  
  634. TCTitle:
  635.      dc.b      "Test class message",0
  636. TCButs:
  637.      dc.b      "I see",0
  638. TCGnaBody:
  639.      dc.b      "Method 'Gna' invoked",0
  640. TCGniBody:
  641.      dc.b      "Method 'Gni' invoked",0
  642.      even
  643. ;fe
  644. ;fs "_OOTest"
  645.  
  646.  
  647.  
  648.      GENTRY    _VGroup,0,0
  649.  
  650.      GENTRY    _HGroup,0,0
  651.      GENTRY    _SmallButton,"X",_DebugMenu
  652.      GENTRY    _SmallButton,"I",_Iconify
  653.      GENTRY    _DragBar,ootitle,0
  654.      GEND
  655.  
  656.      GENTRY    _HGroup,0,0
  657.      GENTRY    _Button,newob,_NewObj
  658.      GENTRY    _Button,dispob,_DispObj
  659.      GENTRY    _Button,gnamtd,_GnaMethod
  660.      GENTRY    _Button,gnimtd,_GniMethod
  661.      GENTRY    _Button,addm,_AddNew
  662.      GEND
  663.  
  664.      GEND
  665.  
  666. ootitle:
  667.      dc.b      "Object oriented routines test",0
  668. newob:
  669.      dc.b      "New object",0
  670. dispob:
  671.      dc.b      "Dispose object",0
  672. gnamtd:
  673.      dc.b      "Do method Gna",0
  674. gnimtd:
  675.      dc.b      "Do method Gni",0
  676. addm:
  677.      dc.b      "Add new member",0
  678.      even
  679.  
  680. tstobj:
  681.      ds.l      1
  682.  
  683. _NewObj:
  684.      lea       TestClass,a0
  685.      sub.l     a1,a1
  686.      bsr.s     _NewObject
  687.      move.l    d0,tstobj
  688.      rts
  689. _DispObj:
  690.      move.l    tstobj,a0
  691.      bra.s     _DisposeObject
  692. _GnaMethod:
  693.      move.l    tstobj,a0
  694.      DOMTDJI   TM_Gna,a0
  695.      rts
  696. _GniMethod:
  697.      move.l    tstobj,a0
  698.      DOMTDJI   TM_Gni,a0
  699. _AddNew:
  700.      lea       TestClass,a0
  701.      sub.l     a1,a1
  702.      bsr.s     _NewObject
  703.      move.l    d0,a0
  704.      move.l    tstobj,a2
  705.      DOMTDJI   MTD_Add,a0
  706.  
  707. _OOTest:
  708.      lea       .OOGui(pc),a0
  709.      bra       _OpenGui
  710.  
  711. .OOGui:
  712.      dc.l      0
  713.  
  714.      GUI
  715.  
  716.      VGROUP
  717.  
  718.      HGROUP
  719.      SMALLBTN  "X",_CloseGui,0
  720.      SMALLBTN  "I",_Iconify,0
  721.      DRAGBAR   ootitle
  722.      ENDOBJ
  723.  
  724.      HGROUP
  725.      BUTTON    newob,_NewObj,0
  726.      BUTTON    dispob,_DispObj,0
  727.      BUTTON    gnamtd,_GnaMethod,0
  728.      BUTTON    gnimtd,_GniMethod,0
  729.      BUTTON    addm,_AddNew,0
  730.      ENDOBJ
  731.  
  732.      ENDOBJ
  733.  
  734.      ENDOBJ
  735.  
  736.  
  737. ;fe
  738.  
  739. ;fs "_DebugMenu"
  740. SpdTxtObj:
  741.      dc.l      0
  742.  
  743. _DebugMenu:
  744.      lea       .DBGui(pc),a0
  745.      bra       _OpenGui
  746.  
  747. .DBGui:
  748.      dc.l      0
  749.      dc.l      OBJ_Begin,_GuiClass
  750.      dc.l      GDTA_ShownFlag,0
  751.  
  752.      VGROUP
  753.  
  754.      HGROUP
  755.      SMALLBTN  "X",ConfirmQuit,0
  756.      SMALLBTN  "I",_Iconify,0
  757.      DRAGBAR   tg1
  758.      ENDOBJ
  759.  
  760.      HGROUP
  761.      BUTTON    testgui,_GuiTest,0
  762.      BUTTON    tstreq,_FReqTest,0
  763.      BUTTON    tstwrap,_ToggleWrap,0
  764.      BUTTON    tstac,_ACTest,0
  765.      ENDOBJ
  766.  
  767.      HGROUP
  768.      BUTTON    guigrunt,_NewGuiTest,0
  769.      BUTTON    ootst,_OOTest,0
  770.      BUTTON    maped,_MapEditor,0
  771.      BUTTON    testenmy,_EditMonsters,0
  772.      ENDOBJ
  773.  
  774.      HGROUP
  775.      VGROUP
  776.      EMPTY
  777.      FIXEDTXT  xstxt,0
  778.      EMPTY
  779.      ENDOBJ
  780.      HPROP     16,65,1,_SetXSpeed,0
  781.      ENDOBJ
  782.  
  783.      HGROUP
  784.      VGROUP
  785.      EMPTY
  786.      FIXEDTXT  ystxt,0
  787.      EMPTY
  788.      ENDOBJ
  789.      HPROP     4,17,1,_SetYSpeed,0
  790.      ENDOBJ
  791.  
  792.      dc.l      OBJ_Begin,_TextClass
  793.      dc.l      TDTA_Text,spdtxt
  794.      dc.l      TDTA_FData,spddats
  795.      STOOBJ    SpdTxtObj
  796.  
  797.      BUTTON    about,_About,0
  798.  
  799.      ENDOBJ
  800.  
  801.      ENDOBJ
  802.  
  803. tg1:
  804.      dc.b      "COUIN's Debug menu",0
  805. testgui:
  806.      dc.b      "Gui test",0
  807. tstreq:
  808.      dc.b      "File requester test",0
  809. tstwrap:
  810.      dc.b      "Show/hide wrap",0
  811. tstac:
  812.      dc.b      "Autocrop test",0
  813. maped:
  814.      dc.b      "Map editor",0
  815. testenmy:
  816.      dc.b      "Edit monsters",0
  817. xstxt:
  818.      dc.b      "X Speed :",0
  819. ystxt:
  820.      dc.b      "Y Speed :",0
  821. spdtxt:
  822.      dc.b      "Horizontal speed (X) : %ld/4 pixels/Vbl",$a
  823.      dc.b      "Vertical speed (Y) : %ld pixels/Vbl",0
  824. about:
  825.      dc.b      "About",0
  826. ootst:
  827.      dc.b      "OO Test",0
  828. guigrunt:
  829.      dc.b      "New GUI Test",0
  830.      even
  831. ;fe
  832.